home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / graffs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  50 lines
  1. 10 DATA"[147]YOUR MISSION IS TO RESCUE GEORGE THE SPACE PIONEER FROM THE CLUTCHES OF THE "
  2. 11 DATA"GRAFFS, WHO INHABIT THE PLANET ARCNODE. DO YOU"
  3. 12 DATA"     A) LAND"
  4. 13 DATA"OR   B) WAIT AND WATCH",3,2
  5. 20 DATA"[147]YOU ARE ATTACKED BY GRAFF MISSILES AND YOUR SPACE-SHIP IS DISABLED. "
  6. 21 DATA"DO YOU","  A)MAKE A FORCED LANDING ON ARCNODE","OR B)ESCAPE IN YOUR LIFE
  7. 22 [131] 3,7
  8. 30 [131]"LOADYOU FIND YOURSELF SURROUNDED BY GRAFFS, WHO TAKE YOU TO SMYRL THEIR "
  9. 31 [131] " LEADER.  HE ASKS, 'WHAT DO YOU WANT?'   DO YOU "
  10. 32 [131]"    A) TELL THE TRUTH","OR B) MAKE UP A STORY ABOUT HAVING ARRIVED BY MISTAKE"
  11. 33 [131]6,4
  12. 40 [131]"LOADYOU ARE GIVEN A LIE-DETECTOR TEST WHICH YOU FAIL."
  13. 41 [131]"DO YOU ","   A)TRY TO ESCAPE","OR B)ADMIT THE TRUTH",5,6
  14. 50 [131]"LOADYOU ARE SHOT DEAD WHILE TRYING TO ESCAPE","THAT IS THE END OF THE GAME"
  15. 51 [131] "FOR","         YOU!",0,
  16. 60 [131]"LOADYOU ARE PUT INTO A CELL WITH GEORGE THE IMPRISONED SPACE MAN."," DO YOU"
  17. 61 [131]"   A) MAKE FRIENDS WITH THE GUARD","OR B)HIT HIM ON THE HEAD WHEN HE BRINGS FOOD
  18. 62 DATA9,8
  19. 70 DATA"[147]YOU MISTAKE YOUR ORBIT AND FIND YOURSELF HEADING AWAY FROM THE GALAXY."
  20. 71 DATA" YOU EVENTUALLY STARVE.","THAT IS THE END","FOR YOU!",0,0
  21. 80 DATA"[147]HE TURNS OUT TO BE A ROBOT WITH AN IRON HEAD.","  YOU ARE TAKEN OUT AND HUNG."
  22. 81 DATA"FOR YOU, THE GAME","HAS ENDED.",0,0
  23. 90 DATA"[147]THE JAILER HELPS YOU TO ESCAPE WITH GEORGE. THE GRAFFS UNDERSTAND YOUR "
  24. 91 DATA" POINT OF VIEW AND LEND YOU A SPACE-SHIP TO GET HOME"
  25. 92 DATA"YOU ARRIVE TO A HERO'S WELCOME","WELL DONE!!!",0,0
  26. 1000 N=1
  27. 1010 RESTORE
  28. 1020 FORJ=1TON
  29. 1030 READJ$,K$,L$,M$,X,Y
  30. 1040 NEXTJ
  31. 1050 X1$=J$+K$:GOSUB5500
  32. 1060 PRINT:X1$=L$:GOSUB5500
  33. 1070 PRINT:X1$=M$:GOSUB5500
  34. 1075 IFX=0THEN STOP
  35. 1080 INPUTX$
  36. 1090 IFX$="A"THENN=X:GOTO1010
  37. 1100 IFX$="B"THENN=Y:GOTO1010
  38. 1110 PRINT"TRY AGAIN":GOTO1080
  39. 5500 REM DISPLAY X1$ WITHOUT SPLITTING WORDS
  40. 5510 XX$=X1$
  41. 5520 PP=LEN(XX$)
  42. 5530 IFPP<=40THENRR=PP:GOSUB5580:RETURN
  43. 5540 FORQQ=40TO1STEP-1
  44. 5550 IFMID$(XX$,QQ,1)=" "THENRR=QQ-1:GOSUB5580:XX$=RIGHT$(XX$,PP-QQ):GOTO5520
  45. 5560 NEXTQQ
  46. 5570 RR=40:GOSUB5580:XX$=RIGHT$(XX$,PP-40):GOTO5520
  47. 5580 REM INTERNAL  SUBROUTINE
  48. 5590 PRINT LEFT$(XX$,RR);:IFRR<40THEN PRINT
  49. 5600 RETURN
  50.